program liczby2;
uses crt;
var n,a,b,c,L:integer; {L jako pomocnicze do wyswietlania danych, bedzie dzielilo na strony wyniki}

BEGIN
textbackground(black);
clrscr;
writeln('prosze, jestem komputerem. z tego wlasnie powodu potrzebuje liczby n');
readln(n);
writeln('liczba ',n,' zostala zaakceptowana jako granica liczb naturalnych spelniajacych rownanie a^2+b^2=c^2');
clrscr;
L:=0;
for a:=1 to n do
    for b:=1 to n do
        for c:=1 to n do
            if sqr(a)+sqr(b)=sqr(c) then
            begin
            writeln('liczby a=',a:5,', b=',b:5,', c=',c:5,' spelniaja: ', sqr(a):10,'+',sqr(b):10,
            '=',sqr(c):10);
            inc(L); {<=> L:=L+1;}
            if (L>0) and (L mod 24=0) then readln;
            end;
textbackground(2);
writeln('Milego dnia!');
readln;
END.